home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 September / macformat-004.iso / Shareware City / Sound / DX7 Librarian 1.0.9 / Sample Scripts / 17 Copy All param to New Window < prev    next >
Encoding:
Text File  |  1994-07-11  |  398 b   |  15 lines  |  [TEXT/ToyS]
  1. tell application "DX7 Librarian"
  2.     activate -- if needed
  3.     open file "Sample"
  4.     New Window 0
  5.     repeat with i from 0 to 154
  6.         set x to Parameter i of Window "Sample"
  7.         set Parameter i of Window 1 to x
  8.     end repeat
  9.     set x to Parameter 156 of Window "Sample"
  10.     set Parameter 156 of Window 1 to x
  11.     set x to Text 1 of Window "Sample"
  12.     set Text 1 of Window 1 to x
  13.     save Window 1 in file "Sample Copy"
  14. end tell
  15.